﻿<!-- #include file="mymin.asp" -->
<%
Call Head2()
If key<>0 Then Call Error2("<title>出错!</title></head><body><div class='main320'>权限不足！")

w "<title>评论删除</title></head><body><div class='main400'>"

dim del
del=Request.querystring("del")
if del=1 then
	myconn.Execute("delete from 74hu_pl")
	myconn.execute("update 74hu_article Set smspin = 0")
%>
成功清除评论
<%else%>
注意:本操作将清除文章栏目及其所有子栏目评论，评论删除无法恢复！确定要清除吗？
<br/>
<a href="qkpin.asp?sid=<%=sid%>&amp;del=1">是,确定清除</a><br/>
<a href="adminpin.asp?sid=<%=sid%>">不,取消操作</a>
<%end if%>
<br/>----------<br/>
<a href="adminpL.asp?sid=<%=sid%>">[评论管理]</a><%call Last2%>